home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 April / CHIP 1996 aprilis (CD06).zip / CHIP_CD06.ISO / sac / pack / rarbatch.exe / rar / ICE2RAR.BAT < prev    next >
DOS Batch File  |  1994-07-28  |  2KB  |  76 lines
  1. REM ■■■ To convert ICE files to ~RAR~ ■■■
  2.  
  3. @Echo off
  4. if %1A==A goto Usage
  5. if %1==* goto Mask
  6. if %1==*.ice goto Mask
  7. goto Single
  8. :Mask
  9. if exist *.ice goto MaskYeah
  10. echo %1 -- files cannot be found.
  11. echo %1 -- files cannot be found. >>!ice2rar.!!!
  12. goto Exit
  13. :MaskYeah
  14. if exist *. ren *. *.$e$
  15. ren *.ice *.
  16. for %%f in (*.) do call ice2rar %%f
  17. if exist *.$e$ ren *.$e$ *.
  18. goto Quit
  19. :Single
  20. echo ICE2RAR v0.03 (c) AS, RAR Support              Free!
  21. if exist %1.ice goto Ok
  22. if exist %1 goto Ok
  23. goto ErrFNF
  24. :Ok
  25. if exist %1.rar goto ErrRarE
  26. mkdir $for-ice
  27. if exist %1.ice goto WExt
  28. goto NoExt
  29. :WExt
  30. ren %1.ice *.
  31. :NoExt
  32. lha x %1. $for-ice\
  33. if errorlevel 1 goto ErrExtr
  34. if not exist *.* goto ErrExtr
  35. cd $for-ice
  36. rar m -r -s -std ..\%1.rar
  37. if errorlevel 1 goto ErrRAR
  38. cd ..
  39. rd $for-ice
  40. echo %1.ICE -} %1.RAR repack successfully completed.
  41. if exist %1. erase %1.
  42. Goto Quit
  43. :ErrExtr
  44. ren %1 *.ice
  45. rd $FOR-ICE
  46. echo %1.ICE -- File cannot be unpacked because errors!
  47. echo %1.ICE -- File cannot be unpacked because errors!
  48. >>!ice2rar.!!!
  49. echo   (NOTE, NO EXTENSION PLEASE!!!)
  50. Goto Quit
  51. :ErrRARe
  52. echo %1.RAR -- File already exists. Cannot be repacked!
  53. echo %1.RAR -- File already exists. Cannot be repacked!
  54. >>!ice2rar.!!!
  55. goto Quit
  56. :ErrRAR
  57. cd ..
  58. ren %1 *.ice
  59. rd $FOR-ICE
  60. echo %1.ICE -- File cannot be repacked!
  61. echo %1.ICE -- File cannot be repacked! >>!ice2rar.!!!
  62. echo   (NOTE, NO EXTENSION PLEASE!!!)
  63. Goto Exit
  64. :ErrFNF
  65. echo %1 -- File not found!
  66. echo %1 -- File not found! >>!ice2rar.!!!
  67. Goto Quit
  68. :Usage
  69. echo ICE2RAR v0.03 (c) AS, RAR Support              Free!
  70. echo   Usage: ice2rar {icearch}
  71. echo (Note, no extension please!)
  72. :Exit
  73. if exist *.$e$ ren *.$e$ *.
  74. exit
  75. :Quit
  76.